home *** CD-ROM | disk | FTP | other *** search
/ Night Owl 6 / Night Owl's Shareware - PDSI-006 - Night Owl Corp (1990).iso / 026a / upsmft.zip / UPS1.PRG < prev    next >
Text File  |  1986-02-20  |  468b  |  28 lines
  1. *************** UPS1.PRG (APPENDS NAMES TO BE SHIPPED) **********
  2. DO WHILE .T.
  3. CLEAR       
  4. ?'*********************** MENU TO TYPE NAMES TO MANIFEST *******'
  5. ?
  6. ?
  7. ?
  8. ?'     [ 1 ]  ADD NAMES'
  9. ?
  10. ?
  11. ?
  12. ?'     [ 2 ]  RETURN TO MENU'
  13. ?
  14. ?
  15. ?
  16. ?'PLEASE MAKE A SELECTION:'
  17. ?
  18. ?
  19. ?'***************************************************************'
  20. WAIT " " TO UPS1
  21. DO CASE
  22.    CASE UPS1='1'
  23.         DO UPS1A
  24.    CASE UPS1='2'
  25.         RETURN
  26. ENDCASE UPS1
  27. ENDDO
  28.